Public NotInheritable Class frmAcercaDe
 
    Private Sub New()

        ' Llamada necesaria para el Diseñador de Windows Forms.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub
    Private Shared _instancia As frmAcercaDe
    Public Shared ReadOnly Property Instancia() As frmAcercaDe
        Get
            If _instancia Is Nothing Then
                _instancia = New frmAcercaDe
            End If
            Return _instancia
        End Get
    End Property
    Private Sub frmAcercaDe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.LabelProductName.Text = "Sky Kardex"
        Me.LabelVersion.Text = String.Format("Versión {0}", My.Application.Info.Version.ToString)
        Me.LabelCopyright.Text = My.Application.Info.Copyright + " S.R.L."

    End Sub
    Private Sub frmAcercaDe_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        _instancia = Nothing
    End Sub
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Me.Close()
    End Sub
    Private Sub frmAcercaDe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If Keys.Escape = Convert.ToInt32(e.KeyChar) Then

            Me.DialogResult = Windows.Forms.DialogResult.Cancel
            Me.Close()

        End If
    End Sub
End Class
